home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / rascal.arc / SDIR.RAS < prev    next >
Text File  |  1980-01-01  |  1KB  |  61 lines
  1. '       SDIR.RAS: A sample screen utility to test screen formatting
  2.  
  3. INCLUDE SCREEN.INC
  4.  
  5. PROCEDURE MAIN
  6.     DO INITIALIZE.SCREEN
  7.     DO DISPLAY.TITLES
  8.     END.SWITCH = 0
  9.     REPEAT
  10.         DO GET.DRIVE.LETTER
  11.         IF DRIVE.LETTER$ = "x" OR DRIVE.LETTER$ = "X"
  12.             END.SWITCH = 1
  13.         ELSE
  14.             DO DISPLAY.DIRECTORY
  15.             DO PAUSE
  16.             ACT.MSG$ = ""
  17.             DO SET.ACTION.MSG
  18.             DO CLEAR.AREA
  19.         ENDIF
  20.     UNTIL END.SWITCH = 1
  21.     DO EXIT.PGM
  22. ENDPROC
  23.  
  24. PROCEDURE DISPLAY.TITLES
  25.     L.TITLE$ = "SDIR - Fullscreen Disk Directory"
  26.     R.TITLE$ = "(c) 1983 Marty Franz"
  27.     DO SET.TITLES
  28.     FUNC.MSG$ = "Rascal Example #3"
  29.     DO SET.FUNCTION.MSG
  30. ENDPROC
  31.  
  32. PROCEDURE GET.DRIVE.LETTER
  33.     LOCATE 5,1 : PRINT "Enter drive letter, or X to quit: ";
  34.     REPEAT
  35.     DRIVE.LETTER$ = INKEY$
  36.     UNTIL LEN(DRIVE.LETTER$) > 0
  37. ENDPROC
  38.  
  39. PROCEDURE DISPLAY.DIRECTORY
  40.     DRIVE.COLON$ = DRIVE.LETTER$ + ":"
  41.     ACT.MSG$ = "Directory of " + DRIVE.COLON$
  42.     DO SET.ACTION.MSG
  43.     DRIVE.FILES$ = DRIVE.COLON$ + "*.*"
  44.     LOCATE 7,1 : FILES DRIVE.FILES$
  45. ENDPROC
  46.  
  47. PROCEDURE PAUSE
  48.     LINE.24.MSG$ = "Press any key to continue..."
  49.     DO SET.LINE.24
  50.     REPEAT
  51.         A.KEY$ = INKEY$
  52.     UNTIL LEN(A.KEY$) > 0
  53.     DO CLEAR.LINE.24
  54. ENDPROC
  55.  
  56. PROCEDURE EXIT.PGM
  57.     ACT.MSG$ = "Exit Program"
  58.     DO SET.ACTION.MSG
  59.     CLS : SYSTEM
  60. ENDPROC
  61.